rank.ameacas<-function(x)
  ###fonte de dados, recomendado data.frame ou criar data.frame diretamente
{
  
  ## arquivo de dados para analizar,contendo as colunas: tamanho, intensidade, urgencia = variveis avaliadoras das ameacas.
  
  ameacas<-(na.omit(x))
  cat("\t Warning: Os NA foram removidos.\t\n")
  
  nam.amea<-row.names(ameacas)
  tamanho<-c(ameacas$tamanho)
  intensidade<-c(ameacas$intensidade)
  urgencia<-c(ameacas$urgencia)
  
  if(nrow(x)!=12)
  {
    stop("\t Erro: O objeto deve ter 12 linhas.\t\n")
  }
  x11()
  par(mfrow=c(1,2))
  par(cex=0.7)
  
  ###Exposio grfica simples do comportamiento das variveis avaliadoras
  
  par(xaxt="n",bty= "l")
  plot(tamanho, type="p", xlab="ameacas",col="red", pch=22, bg="red", main="Avaliadores", cex.main=1)
  nam.amea<-row.names(ameacas)
  text(seq(1,12,by=1), par("usr")[3]- 0.2,labels=nam.amea, srt=45, pos=1, xpd=TRUE, cex=0.8)
  
  par(new=TRUE) 
  par(ann=F)
  plot(intensidade, type="p", col="blue", pch=23, bg="blue", axes=F)
  
  par(new=TRUE)
  par(ann=F)
  plot(urgencia, type="p", xlab="ameacas",col="green", pch=24, bg="green", axes=F)
  legend(9,max(intensidade),legend=c("tam","int","urg"),cex=1,col=c("red","blue","green"),pch=c(22,23,24), pt.bg=c("red","blue","green"))
  
  ###Exposio grfica de duplas variveis avaliadoras
  
  tamanho.intensidade<-data.frame(ameacas$tamanho, ameacas$intensidade)## criacao data.frame intensidade -tamanho
  tamanho.urgencia<-data.frame(ameacas$tamanho, ameacas$urgencia)
  intensidade.urgencia<-data.frame(ameacas$urgencia, ameacas$intensidade)
  soma.tam.int<-rowSums(tamanho.intensidade)
  soma.tam.urg<-rowSums(tamanho.urgencia)
  soma.int.urg<-rowSums(intensidade.urgencia)
  
  par(xaxt="n",bty= "l")
  plot(soma.tam.int, type="p", xlab="ameacas",col="green", pch=22, bg="green", main="Soma de dois avaliadores")
  nam.amea<-row.names(ameacas)
  text(seq(1,12,by=1), par("usr")[3]-0.2, labels=nam.amea, srt=45, pos=1, xpd=TRUE, cex=0.8)
  
  par(new=TRUE)
  par(ann=F)
  plot(soma.tam.urg, type="p", xlab="ameacas",col="orange", pch=23, bg="orange",main="Soma de dois avaliadores", axes=F)
  
  par(new=T)
  par(ann=F) 
  plot(soma.int.urg, type="p", xlab="ameacas",col="purple", pch=24, bg="purple",main="Soma de dois avaliadores", axes=F)
  legend(9,(max(soma.tam.urg)),legend=c("tam+int","tam+urg","int+urg"),cex=1,col=c("green","orange","purple"),pch=c(22,23,24), pt.bg=c("green","orange","purple"))
  
  ##Exposio grfica da somatoria total das variveis avaliadoras
  x11()
  par(mfrow=c(1,2))
  soma.total<-rowSums(ameacas)
  par(xaxt="n", bty= "l") 
  nam.amea<-row.names(ameacas)
  plot(soma.total, type="p", xlab="ameacas",col="pink", pch=24, bg="pink", main="Total de avaliadores", cex=1)
  text(seq(1,12,by=1), par("usr")[3]-0.2, labels=nam.amea, srt=45, pos=1, xpd=TRUE, cex=0.8)
  
  ##Exposio tridimensional das ameaas
  
  install <- function(pacote)
  {is.element(pacote, installed.packages()[,1])}
  if(install("scatterplot3d")==FALSE)
  {install.packages("scatterplot3d")
   cat("\t", "O pacote NRAIA foi instalado!\n")}
  if(install("scatterplot3d")==TRUE)
  {require ("scatterplot3d", quietly=TRUE)} #require foi creada para usar dentro de funes
  
  sp3d<-scatterplot3d(ameacas, type="h", angle=20, cex.lab= 0.7,cex.axis=0.8, cex.main=1,col.axis="grey",col.grid="lightblue", main="Anlise trideminsional ",scale.y=0.8 , lty.hplot=2, pch=19, box=T, cex.symbols=1)
  
  ##Resumo em data.frame
  
  soma.tam.int<-rowSums(tamanho.intensidade)
  soma.tam.urg<-rowSums(tamanho.urgencia)
  soma.int.urg<-rowSums(intensidade.urgencia)
  soma.total<-rowSums(ameacas)
  
  rank.tamanho<-list(row.names(ameacas)[order(tamanho)])
  rank.intensidade<-list(row.names(ameacas)[order(intensidade)])
  rank.urgencia<-list(row.names(ameacas)[order(urgencia)])
  
  rank.tam.int<-list(row.names(ameacas)[order(soma.tam.int)])
  rank.tam.urg<-list(row.names(ameacas)[order(soma.tam.urg)])
  rank.int.urg<-list(row.names(ameacas)[order(soma.int.urg)])
  
  rank.Total<-list(row.names(ameacas)[order(soma.total)])
  
  col.names<-c("tam","int","urg","tam.int","tam.urg","urg.int","TOTAL")
  
  resumo.result=data.frame(rank.tamanho, rank.intensidade, rank.urgencia,rank.tam.int,rank.tam.urg, rank.int.urg,rank.Total)
  
  make.names(names=col.names, unique = T)
  
  colnames(resumo.result)
  colnames(resumo.result) <- c('tam', 'int', 'urg', 'tam.int', 'tam.urg', 'int.urg', 'TOTAL')
 

 return(resumo.result)
  
}

